Attribute VB_Name = "LocationToA1AndSave"
Public Sub main()
Attribute main.VB_ProcData.VB_Invoke_Func = "q\n14"
    With Application.ActiveWorkbook
    For Each obj In .Sheets
        obj.Select
        obj.Cells(1, 1).Select
    Next
    .Sheets(1).Select
    .Save
    End With
End Sub

